function [salida,s1]=propagacion12M(pulso,s,x,z,c,efs,Fpulso)

[inv_modR,delay]=prop(x,z,0,0,c);
if nargin<6
    [M,N]=size(pulso);
    Fpulso=fft(pulso); %FFT por columnas (por sensor)
    Fpulso=Fpulso(1:(M/2+1),:);
else
    %ignoro la entrada pulso
    M=round(2*(size(Fpulso,1)-1));
    N=size(Fpulso,2);
end

Fpulso_aux=Fpulso*inv_modR';
[Feco,s1]=retardar([],s,efs,delay,Fpulso_aux);

if nargin<6
    salida=reconstr(Feco);
else
    salida=Feco;
end
end